home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / rettig.arc / TRSOURCE.EXE / POKECHAR.ASM < prev    next >
Assembly Source File  |  1990-10-22  |  1KB  |  38 lines

  1. ; POKECHAR.ASM
  2. ;
  3. ; by Ralph Davis
  4. ; Modified by Leonard Zerman
  5. ;
  6. ; Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  7. ;
  8.  
  9.          PUBLIC   POKECHAR
  10.  
  11.          EXTRN    POKESTR:FAR
  12.  
  13. ;*****************************************************
  14. POKECHAR_TEXT SEGMENT BYTE PUBLIC 'CODE'
  15.          ASSUME   CS:POKECHAR_TEXT
  16. ;-----------------------------------------------------
  17. ;
  18. ;     POKECHAR(segment, offset, character)
  19. ;
  20. ;        segment = SPACE(4)  && hexadecimal string
  21. ;        offset  = number < 65536 or hexadecimal string
  22. ;        character = single-byte string
  23. ;
  24. ;        Returns:  .F. if less than 3 parameters passed
  25. ;                  .T. otherwise
  26. ;----------------
  27. POKECHAR PROC FAR
  28.  
  29.          CALL POKESTR           ; Same as POKESTR--
  30.                                 ; we're just poking a one-byte string
  31.          RET
  32.  
  33. POKECHAR ENDP
  34. ;------------------------------------------------
  35. POKECHAR_TEXT  ENDS
  36. ;************************************************
  37.          END
  38.